00100	ARRAY D1(801),D2(905),D3(1020),D4(1125),D5(128),D6(45),D7(23),D8(18); 
00200	VARIABLE /R;
00300	NCHNS←4;SRATE←25000;SPEED←5;MAG←512/SRATE;
00400	REVINIT←1;R←0;
00500	COMPILE;
00600	INSTRUMENT REV;
00700	REV1(R,801,.827,D1);
00800	REV1(R,901,.805,D2);
00900	REV1(R,1011,.783,D3);
01000	REV1(R,1123,.764,D4);
01100	REV2(U1+U2+U3+U4,123,.7,D5);
01200	REV2(U5,43,.7,D6);
01300	REV2(U6,13,.7,D7);
01400	R←0;OUTA←OUTA+U7;
01500	OUTB←OUTB+U7;
01600	OUTC←OUTC+U7;
01700	OUTD←OUTD+U7;
01800	END;
01900	INSTRUMENT BOING;
02000	ZOSCIL(P4,MAG/P2,P5);
02100	ZOSCIL(1,MAG/P2,P6);
02200	COSCIL(MAG*P3,MAG/P9,P10);
02300	COSCIL(U1*(1-U2),MAG*P3+U3,P7);
02400	COSCIL(U1*U2,MAG*P3+U3,P8);
02500	COSCIL(1,MAG/P9,P11);
02600	COSCIL(1,MAG/P9,P12);
02700	COSCIL(1,MAG/P9,P13);
02800	COSCIL(1,MAG/P9,P14);
02900	COSCIL(U1*(1-U2),MAG*P3,P7);
03000	COSCIL(U1*U2,MAG*P3,P8);
03100	OUTA←OUTA+(U4+U5)*U6;
03200	OUTB←OUTB+(U4+U5)*U7;
03300	OUTC←OUTC+(U4+U5)*U8;
03400	OUTD←OUTD+(U4+U5)*U9;
03500	R←R+.1*(U6+U7+U8+U9)*(U10+U11)+.04*(U10+U11);
03600	END;
03700	INSTRUMENT DOING;
03800	ZOSCIL(P4,MAG/P2,P5);
03900	ZOSCIL(1,MAG/P2,P6);
04000	COSCIL(MAG*P3,MAG/P9,P10);
04100	COSCIL(U1*(1-U2),MAG*P3+U3,P7);
04200	COSCIL(U1*U2,MAG*P3+U3,P8);
04300	COSCIL(1,MAG/P9,P11);
04400	COSCIL(1,MAG/P9,P12);
04500	COSCIL(1,MAG/P9,P13);
04600	COSCIL(1,MAG/P9,P14);
04700	COSCIL(U1*(1-U2),MAG*P3,P7);
04800	COSCIL(U1*U2,MAG*P3,P8);
04900	OUTA←OUTA+(U4+U5)*U6;
05000	OUTB←OUTB+(U4+U5)*U7;
05100	OUTC←OUTC+(U4+U5)*U8;
05200	OUTD←OUTD+(U4+U5)*U9;
05300	R←R+.1*(U6+U7+U8+U9)*(U10+U11)+.04*(U10+U11);
05400	END;
05500	FINISH;